home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / misc / AutoGuide.lha / autoguide / examples / AutoGuide_example.e
Encoding:
Text File  |  1997-08-02  |  886 b   |  71 lines
  1. /*
  2.  
  3.     This is a "do nothing" E class
  4.  
  5.     Just to show how AutoGuide works.
  6.  
  7. */
  8.  
  9.  
  10. /*
  11. @node main "Foo - A do nothing class"
  12.  
  13.     This is a do nothing class, just to show AutoGuide capabilities.
  14.  
  15.     See these methods:
  16.  
  17.     @{" Foo()  " LINK foo_foo}
  18.     @{" setx() " LINK foo_setx}
  19.     @{" getx() " LINK foo_getx}
  20.  
  21. @endnode
  22. */
  23.  
  24. OBJECT foo
  25.   x : INT
  26. ENDOBJECT
  27.  
  28. /*
  29. @node foo_foo "Foo constructor"
  30.  
  31.         NAME: foo()
  32.  
  33.       INPUTS: NONE
  34.  
  35.  DESCRIPTION: this is the class constructor.
  36.  
  37. @endnode
  38. */
  39. PROC foo() OF foo
  40.   self.x:=0
  41. ENDPROC
  42.  
  43.  
  44. /*
  45. @node foo_setx "setx()"
  46.  
  47.         NAME: setx(v)
  48.  
  49.       INPUTS: v - new x value.
  50.  
  51.  DESCRIPTION: use this method to change x value.
  52.  
  53. @endnode
  54. */
  55. PROC setx(v) OF foo
  56.     self.x:=v
  57. ENDPROC
  58.  
  59. /*
  60. @node foo_getx "getx()"
  61.  
  62.         NAME: getx()
  63.  
  64.       INPUTS: NONE
  65.  
  66.  DESCRIPTION: use this method to get the x value.
  67.  
  68. @endnode
  69. */
  70. PROC getx() OF foo IS self.x
  71.